SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE FUNCTION DBO.FN_VALI_DETR  
/*------------------------------------------------------*/  
/*---- EMPRESA    : OFISIS S.A                      ----*/  
/*---- CLIENTE    : OFISIS S.A                      ----*/  
/*---- SISTEMA    : TESORERIA                       ----*/  
/*---- MODULO    : EMPRESA                          ----*/  
/*---- PROGRAMA    : DEVUELVE NOMBRE LIBRO CONTABLE ----*/  
/*---- DESARROLLADO POR    : E.G.T                  ----*/  
/*---- FECHA CREACION    : 23/02/2008               ----*/  
/*---- BASE DE DATOS    : ORACLE                    ----*/  
/*---- VERSION            : 10G                     ----*/  
/*------------------------------------------------------*/  
/*------------------------------------------------------*/  
/*---- COMENTARIOS: DEVUELVE TRUE SI SE A REALIZADO LA DETRACCION--*/  
/*---- CASO CONTARIO FALSE                          ----*/  
/*----                                              ----*/  
/*----                                              ----*/  
/*------------------------------------------------------*/  
/*----                                              
DECLARE OSDE_OPRC TD_VC_050  
SELECT OSDE_OPRC = DBO.FN_COOPRC_CNTB_Q02('01', '001')  
SELECT OSDE_OPRC                                    ----*/  
/*------------------------------------------------------*/  
(  
@ISCO_EMPR      TD_VC_002,  
@ISCO_PROV      TD_VC_020,  
@ISCO_TIPO_DOCU TD_VC_003,  
@ISNU_DOCU_PROV TD_VC_020  
)  
RETURNS TD_VC_002  
AS  
BEGIN  
 DECLARE  
 @OSSI_DETR_CALC TD_VC_002,  
 @VSCO_EMPR      TD_VC_002  
  
  
  SELECT @OSSI_DETR_CALC = NULL  
  SELECT @VSCO_EMPR = NULL  
    
  
SELECT @VSCO_EMPR = MAX(T2.CO_EMPR)  
FROM  TDMOVI_BANC T2, TCMOVI_BANC T3  
WHERE T2.CO_EMPR = @ISCO_EMPR   
AND   T2.CO_ENTI = @ISCO_PROV  
AND   T2.TI_DOCU_ENTI = @ISCO_TIPO_DOCU  
AND   T2.NU_DOCU_ENTI = @ISNU_DOCU_PROV  
AND   T2.IM_DETR_CALC != 0  
AND   T2.CO_EMPR = T3.CO_EMPR  
AND   T2.CO_BANC = T3.CO_BANC  
AND   T2.CO_UNID_CONC = T3.CO_UNID_CONC  
AND   T2.NU_CNTA_BANC = T3.NU_CNTA_BANC  
AND   T2.AA_BNCO = T3.AA_BNCO  
AND   T2.MM_BNCO = T3.MM_BNCO  
AND   T2.TI_MOVI_BANC = T3.TI_MOVI_BANC  
AND   T2.NU_COMP_BANC = T3.NU_COMP_BANC  
AND   T3.TI_SITU !='ANU'  
  
  
IF ISNULL(@VSCO_EMPR,'') != ''   
   SELECT @OSSI_DETR_CALC = 'SI'  
ELSE  
   SELECT @OSSI_DETR_CALC = 'NO'  
  
 RETURN (@OSSI_DETR_CALC)  
END  
/***********************************FIN ******************************************/   
  
GO
